home *** CD-ROM | disk | FTP | other *** search
- PROGRAM "DOS"
-
- MENU MAIN
- OPTION FILE,"FILE HANDLING FUNCTIONS"
- EXECUTE FILE
- OPTION DISK,"DISK HANDLING FUNCTIONS"
- EXECUTE DISK
- OPTION SYSTEM,"SYSTEM MAINTENANCE"
- EXECUTE SYSTEM
- OPTION CLS,"CLEAR THE SCREEN"
- TYPE "CLS{ENTER}"
- MEND
-
- MENU FILE
- OPTION COPY,"COPY FILE(S)"
- TYPE "COPY "
- ASK "ENTER SOURCE FILE(S)"
- INPUT
- TYPE " "
- ASK "COPY TO"
- INPUT
- CR
- OPTION DIR,"DIRECTORY OF FILES"
- TYPE "DIR "
- ASK "WHAT DIRECTORY (ENTER = CURRENT)"
- INPUT
- CR
- OPTION ERASE,"ERASE FILE(S)"
- TYPE "ERASE "
- ASK "ERASE WHAT FILE(S)"
- INPUT
- CR
- OPTION RENAME,"RENAME FILE(S)"
- TYPE "REN "
- ASK "ENTER OLD FILE NAME"
- INPUT
- TYPE " "
- ASK "ENTER NEW FILE NAME"
- INPUT
- CR
- OPTION TYPE,"DISPLAY FILE(S)"
- TYPE "TYPE "
- ASK "DISPLAY WHAT FILE(S)"
- INPUT
- CR
- MEND
-
- MENU SYSTEM
- OPTION DATE,"SET SYSTEM DATE"
- TYPE "DATE "
- ASK "ENTER DATE AS MM-DD-YY"
- INPUT
- CR
- OPTION TIME,"SET SYSTEM TIME"
- TYPE "TIME "
- ASK "ENTER TIME AS HH:MM:SS"
- INPUT
- CR
- OPTION PROMPT,"SET SYSTEM PROMPT"
- TYPE "PROMPT "
- ASK "ENTER NEW PROMPT"
- INPUT
- CR
- OPTION VER,"SHOW DOS VERSION"
- TYPE "VER{ENTER}"
- MEND
-
- MENU DISK
- OPTION ASSIGN,"CHANGE DRIVE ASSIGNMENT"
- TYPE "ASSIGN "
- ASK "WHAT DRIVE LETTER IS REFERENCED"
- INPUT
- TYPE "="
- ASK "WHAT DRIVE SHOULD BE SUBSTITUTED"
- INPUT
- CR
- OPTION CHDIR,"CHANGE DIRECTORIES"
- TYPE "CD "
- EXECUTE CHDIR
- OPTION FORMAT,"FORMAT A DISK"
- TYPE "FORMAT "
- ASK "FORMAT WHICH DRIVE"
- INPUT
- CR
- OPTION LABEL,"LABEL A DISK"
- TYPE "LABEL "
- ASK "ENTER DRIVE TO LABEL"
- INPUT
- CR
- ASK "ENTER NEW LABEL"
- INPUT
- CR
- OPTION MKDIR,"CREATE A SUBDIRECTORY"
- TYPE "MD "
- ASK "ENTER NAME OF SUBDIRECTORY TO CREATE"
- INPUT
- CR
- OPTION RMDIR,"REMOVE A SUBDIRECTORY"
- TYPE "RD "
- ASK "ENTER NAME OF SUBDIRECTORY TO REMOVE"
- INPUT
- CR
- OPTION VOL,"DISPLAY DISK VOLUME LABEL"
- TYPE "VOL "
- ASK "SHOW VOLUME NAME OF WHICH DRIVE"
- INPUT
- CR
- MEND
-
- MENU CHDIR
- OPTION PARENT,"CHANGE TO PARENT DIRECTORY"
- TYPE "..{ENTER}"
- OPTION ROOT,"CHANGE TO ROOT DIRECTORY"
- TYPE "\{ENTER}"
- OPTION OTHER,"SPECIFY SUBDIRECTORY"
- ASK "ENTER SUBDIRECTORY"
- INPUT
- CR
- MEND
-
- END